
###

# Carregar os pacotes

library(haven)
library(knitr)
library(kableExtra)

# Ler o arquivo Stata
dados <- read_dta("PELA_LAPOP.dta")

summary(dados)


### Tabela 1 OK

### Tabela 2 OK

### Tabela 3 OK


### Tabela 4 OK




### Tabela reformulada

dados_eleitores <- subset(dados, c(dados$database == 2))

dados_manifestos <- subset(dados, c(dados$database == 1))

summary(dados_eleitores)

summary(dados_manifestos)

### Tabela 5


### Firmas

# Criar a tabela de conting?ncia
tabela_n <- table(dados_manifestos$parties, dados_manifestos$country)

# Calcular os percentuais nas c?lulas da tabela
tabela_percentualn <- prop.table(tabela_n) * 100

tabela_percentualn

summary(dados_manifestos$publicfirms)

# Calcular a m?dia da vari?vel var3 por combina??o das vari?veis var1 e var2
media_n <- aggregate(publicfirms ~ parties + country, data = dados_manifestos, FUN = mean)

table(media_n)

# Exibir a tabela com a m?dia da vari?vel var3
print(media_n)

# Exibir a tabela com a m?dia da vari?vel var3
media_n <- media_n %>% kable()

kableExtra::kable_styling(media_n)

table(dados_manifestos$parties, dados_manifestos$country)

### Tabela 5 Replic?vel


### Tabela 6

# Criar a tabela de conting?ncia
tabela_s <- table(dados_eleitores$parties, dados_eleitores$country)

# Calcular os percentuais nas c?lulas da tabela
tabela_percentuals <- prop.table(tabela_s) * 100

tabela_percentuals

summary(dados_eleitores$publicfirms)

# Calcular a m?dia da vari?vel var3 por combina??o das vari?veis var1 e var2
media_s <- aggregate(publicfirms ~ parties + country, data = dados_eleitores, FUN = mean)

# Exibir a tabela com a m?dia da vari?vel var3
print(media_s)

# Exibir a tabela com a m?dia da vari?vel var3
media_s <- media_s %>% kable()

kableExtra::kable_styling(media_s)

#### Tabela 6 Replic?vel


### Democracy

### Tabela 7

summary(dados_manifestos$democracy)

# Calcular a m?dia da vari?vel var3 por combina??o das vari?veis var1 e var2
media_x <- aggregate(democracy ~ parties + country, data = dados_manifestos, FUN = mean)

# Exibir a tabela com a m?dia da vari?vel var3
print(media_x)

# Exibir a tabela com a m?dia da vari?vel var3
media_x <- media_x %>% kable()

kableExtra::kable_styling(media_x)


### Tabela 7 Replic?vel


### Tabela 8

summary(dados_eleitores$democracy)

summary(dados_eleitores$democracy_cont)


library(dplyr)

dados_eleitores <- dados_eleitores %>%
  mutate(democracy_cont_bin = case_when(
    democracy_cont == 1 ~ 1,
    democracy_cont < 1 ~ 0
  ))

table_8 <- aggregate(democracy_cont_bin ~ parties + country, data = dados_eleitores, FUN = mean)
print(table_8)


# Calcular a m?dia da vari?vel var3 por combina??o das vari?veis var1 e var2
media_z <- aggregate(democracy_cont_bin ~ parties + country, data = dados_eleitores, FUN = mean)

# Exibir a tabela com a m?dia da vari?vel var3
print(media_z)

# Exibir a tabela com a m?dia da vari?vel var3
media_z <- media_z %>% kable()

kableExtra::kable_styling(media_z)

#### Tabela 8 

### Same Sex

### Tabela 9

summary(dados_manifestos$samesex)

# Calcular a m?dia da vari?vel var3 por combina??o das vari?veis var1 e var2
media_r <- aggregate(samesex ~ parties + country, data = dados_manifestos, FUN = mean)

# Exibir a tabela com a m?dia da vari?vel var3
print(media_r)

# Exibir a tabela com a m?dia da vari?vel var3
media_r <- media_r %>% kable()

kableExtra::kable_styling(media_r)


### Tabela 9 Replic?vel


### Tabela 10

summary(dados_eleitores$samesex)


# Calcular a m?dia da vari?vel var3 por combina??o das vari?veis var1 e var2
media_ss <- aggregate(samesex ~ parties + country, data = dados_eleitores, FUN = mean)

# Exibir a tabela com a m?dia da vari?vel var3
print(media_ss)

# Exibir a tabela com a m?dia da vari?vel var3
media_ss <- media_ss %>% kable()

kableExtra::kable_styling(media_ss)


### Tabela 10 Replic?vel


### Inequality 


### Tabela 11

summary(dados_manifestos$reduceinequality)

# Calcular a m?dia da vari?vel var3 por combina??o das vari?veis var1 e var2
media_ri <- aggregate(reduceinequality ~ parties + country, data = dados_manifestos, FUN = mean)

# Exibir a tabela com a m?dia da vari?vel var3
print(media_ri)

# Exibir a tabela com a m?dia da vari?vel var3
media_ri <- media_ri %>% kable()

kableExtra::kable_styling(media_ri)


### Tabela 11 Replic?vel


### Tabela 12

summary(dados_eleitores$reduceinequality)


# Calcular a m?dia da vari?vel var3 por combina??o das vari?veis var1 e var2
media_rin <- aggregate(reduceinequality ~ parties + country, data = dados_eleitores, FUN = mean)

# Exibir a tabela com a m?dia da vari?vel var3
print(media_rin)

# Exibir a tabela com a m?dia da vari?vel var3
media_rin <- media_rin %>% kable()

kableExtra::kable_styling(media_rin)

















